00100		TITLE	NORM	;DEB, 11/13/69
00200	
00300	;	CALL NORM(ARRAY,SIZE,FACTOR)
00400	; UNPACKS 18-BIT SMPLS, NORMALIZES, REPACKS AS 12-BIT SMPLS.
00500	; ---- 3K OF 18-BIT BECOMES 2K OF 12-BIT
00600	;****** BE SURE TO SET FACTOR FOR 9-BIT SO MAXAMP IS NOT >255.
00700	
00800	
00900		INTERNAL  NORM
00910		EXTERNAL PN
01000	
01100	X	←	12	;LOOP AND INDEX
01200	T	←	13	;BASE OF IBOTT
01250	O	←	14
01300	
01400	
01500	NORM:	0
01600		HRR X,0(16)
01700		MOVN T,@1(16)
01800		HRL X,T
01900		HRR T,X
02000		HRLI T,441400	;FOR 12-BIT.  USE 441100 FOR 9-BIT
02100		MOVE 4,@2(16)
02200		FIX 4,212000	;FOR STANFORD ONLY
02205	; NEXT IS EXPORT FIX (TO N10:)
02210	;;	FSC	4,21
02220	;;	MULI	4,400
02230	;;	TSC	4,4
02240	;;	EXCH	4,5
02250	;;	ASH	4,-243(5)
02300	N10:	HLL 0(X)
02400		MUL 4
02410		MOVE O,0
02440		JSA 16,PN		;SUBR. TO PRINT NUMS.
02470		JUMP O
02485		MOVE 0,O
02500		IDPB T
02600		HRL 0(X)
02700		MUL 4
02710		MOVE O,0
02740		JSA 16,PN		;SUBR. TO PRINT NUMS.
02770		JUMP O
02785		MOVE 0,O
02800		IDPB T
02900		AOBJN X,N10
03000		JRST 3(16)
03100		0
03200		ANDCBM 4,-6	; THESE ARE THE CONSTANTS
03300		ANDCBI 10,-3
03400	
03500		END